home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
WINWORDS
/
AMIMACRO.ZIP
/
CNGDOCFT.SMM
< prev
next >
Wrap
INI File
|
1992-07-20
|
13KB
|
877 lines
[ver]
4
[sty]
~macro.sty
[files]
[charset]
82
ANSI (Windows, IBM CP 1252)
[revisions]
0
[prn]
CITIZEN Dot Matrix
[lang]
1
[desc]
Change Fonts in Current Document Using FontFaceChange
711695500
6
695804302
346
4
0
0
0
0
0
[fopts]
0
1
0
0
[lnopts]
2
Body Text
1
[docopts]
5
2
[l1]
0
[pg]
4
60 0 19 0 0 0 0 216 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
120 0 31 0 0 0 0 216 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
180 0 57 0 0 0 0 216 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
186 0 10 1025 80 0 0 216 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
[edoc]
@Function@<:#216,10800><:Zcngdocft>FUNCTION cngdocft()<:Z~cngdocft>
<:#216,10800>Darkmode(1)
<:#216,10800>Hourglass(1)
<:#216,10800>onerror endit
<:#216,10800>oncancel endit
dim bfont(100)
<:#216,10800>dim style(25)
<:#216,10800>s=1
<:#216,10800>b=84
<:#216,10800>bfont(1)="Arial MT"
<:#216,10800>bfont(2)="AvantGarde"
<:#216,10800>bfont(3)="Bookman"
<:#216,10800>bfont(4)="BrushScript"
<:#216,10800>bfont(5)="CaslonOpenFace"
<:#216,10800>bfont(6)="Courier"
<:#216,10800>bfont(7)="DomCasual"
<:#216,10800>bfont(8)="Frank Goth Cd"
<:#216,10800>bfont(9)="Helvetica"
<:#216,10800>bfont(10)="Helvetica-Narrow"
<:#216,10800>bfont(11)="LetterGothic"
<:#216,10800>bfont(12)="NewCenturySchlbk"
<:#216,10800>bfont(13)="Palatino"
<:#216,10800>bfont(14)="Perpetua"
<:#216,10800>bfont(15)="Shelly Allegro Script"
<:#216,10800>bfont(16)="Symbol"
<:#216,10800>bfont(17)="Times"
<:#216,10800>bfont(18)="TimesNewRomanPS"
<:#216,10800>bfont(19)="Wingdings"
<:#216,10800>bfont(20)="Algiers"
<:#216,10800>bfont(21)="Arabia"
<:#216,10800>bfont(22)="Avalon"
<:#216,10800>bfont(23)="Bahamas"
<:#216,10800>bfont(24)="BahamasHeavy"
<:#216,10800>bfont(25)="BahamasLight"
<:#216,10800>bfont(26)="BallroomTango"
<:#216,10800>bfont(27)="BravoEngraved"
<:#216,10800>bfont(28)="Brochure"
<:#216,10800>bfont(29)="Brooklyn"
<:#216,10800>bfont(30)="Busker"
<:#216,10800>bfont(31)="Campaign"
<:#216,10800>bfont(32)="Casablanca"
<:#216,10800>bfont(33)="CasablancaAntique"
<:#216,10800>bfont(34)="CommonBullets"
<:#216,10800>bfont(35)="Cottage"
<:#216,10800>bfont(36)="Crescent"
<:#216,10800>bfont(37)="Dauphin"
<:#216,10800>bfont(38)="DawnCastle"
<:#216,10800>bfont(39)="Dixieland"
<:#216,10800>bfont(40)="Euromode"
<:#216,10800>bfont(41)="Expo"
<:#216,10800>bfont(42)="Frankenstein"
<:#216,10800>bfont(43)="Freeport"
<:#216,10800>bfont(44)="Galleria"
<:#216,10800>bfont(45)="Gatineau"
<:#216,10800>bfont(46)="GreekMathSymbols"
<:#216,10800>bfont(47)="Hollow"
<:#216,10800>bfont(48)="HomewardBound"
<:#216,10800>bfont(49)="Indiana"
<:#216,10800>bfont(50)="IndianaSolid"
<:#216,10800>bfont(51)="Kastler"
<:#216,10800>bfont(52)="Kids"
<:#216,10800>bfont(53)="Lincoln"
<:#216,10800>bfont(54)="Linus"
<:#216,10800>bfont(55)="Lithograph"
<:#216,10800>bfont(56)="LithographLight"
<:#216,10800>bfont(57)="Mystical"
<:#216,10800>bfont(58)="Nebraska"
<:#216,10800>bfont(59)="NewBrunswick"
<:#216,10800>bfont(60)="NewOrder"
<:#216,10800>bfont(61)="NewOrderEngraved"
<:#216,10800>bfont(62)="Nuance"
<:#216,10800>bfont(63)="Ottawa"
<:#216,10800>bfont(64)="PalmSprings"
<:#216,10800>bfont(65)="Paradise"
<:#216,10800>bfont(66)="Penguin"
<:#216,10800>bfont(67)="PenguinLight"
<:#216,10800>bfont(68)="President"
<:#216,10800>bfont(69)="Southern"
<:#216,10800>bfont(70)="Stamp"
<:#216,10800>bfont(71)="SwitzerlandLight"
<:#216,10800>bfont(72)="SwitzerlandNarrow"
<:#216,10800>bfont(73)="Timpani"
<:#216,10800>bfont(74)="TimpaniHeavy"
<:#216,10800>bfont(75)="Unicorn"
<:#216,10800>bfont(76)="Viking"
<:#216,10800>bfont(77)="Vivienne"
<:#216,10800>bfont(78)="Wingdings"
<:#216,10800>bfont(79)="ZurichCalligraphic"
<:#216,10800>bfont(80)="Roman 10cpi"
<:#216,10800>bfont(81)="Roman 10cpi 0"
<:#216,10800>bfont(82)="Roman 10cpi OS"
<:#216,10800>bfont(83)="Roman 10cpi R"
<:#216,10800>bfont(84)="Roman 10cpi S"
@Function@<:#216,10800>Box1:
<:#216,10800>For I = 1 to b
<:#216,10800> FillList(bfont(I))
<:#216,10800>Next
<:#216,10800>box1=DialogBox(".","box1")
<:#216,10800>If box1=0
<:#216,10800> Goto endit
<:#216,10800>Endif
<:#216,10800>Newfont=GetDialogField$(9000)
<:#216,10800>size=GetDialogField$(20)
<:#216,10800>If size=1
<:#216,10800> For I = 3 to 50
<:#216,10800> x=i*2
<:#216,10800> Filledit(9500,x)
<:#216,10800> next
<:#216,10800> Box2=DialogBox(".","box2")
<:#216,10800> Newsize=GetDialogField$(9500)
<:#216,10800> '<:><:><:><:>Newsize=Newsize*20
<:#216,10800>Endif
<:#216,10800>MarkBookMark("current" 4003 )
<:#216,10800>Type( "<[>CTRLHome]<[>CTRLSHIFTEnd]" )
<:#216,10800>FontFaceChange(newfont)
<:#216,10800>If Box2=1
<:#216,10800> FontPointSizeChange(newsize)
<:#216,10800>Endif
<:#216,10800>Type( "<[>Right]" )
<:#216,10800>MarkBookMark("current" 4002 )
<:#216,10800>MarkBookMark("current" 4004 )
<:#216,10800>Darkmode(0)
@Function@<:#216,10800>Defstyle:
<:#216,10800>UserControl("Click On Resume To Redefine Styles in Style Sheet.")
<:#216,10800>Darkmode(1)
<:#216,10800>MarkBookMark("current" 4003 )
<:#216,10800>type("<[>ctrlhome]<[>ctrlshiftdown]")
<:#216,10800>If curshade$()=""
<:#216,10800> goto endit
<:#216,10800>Endif
@Function@<:#216,10800>loop2:
<:#216,10800>name=GetStyleName$()
<:#216,10800><:><:>Messages(0)<:><:><:><:>
<:#216,10800><:><:>DefineStyle()
<:#216,10800>Messages(1)<:><:><:><:><:><:>
<:#216,10800>style(s)=name
<:#216,10800>s=s+1
@Function@<:#216,10800>Loop1:
<:#216,10800>Type("<[>right]<[>ctrlshiftdown]")
<:#216,10800>If curshade$()=""
<:#216,10800> goto perm
<:#216,10800>Endif
<:#216,10800>name=GetStyleName$()
<:#216,10800>For i = 1 to s
<:#216,10800> If name = Style(i)
<:#216,10800> Goto loop1
<:#216,10800> Endif
<:#216,10800>next
<:#216,10800>Goto loop2
@Function@<:#216,10800>Perm:
<:#216,10800>Type( "<[>Right]" )
<:#216,10800>MarkBookMark("current" 4002 )
<:#216,10800>MarkBookMark("current" 4004 )
<:#216,10800>ModifyReflow()
<:#216,10800>Darkmode(0)
<:#216,10800>hourglass(0)
<:#216,10800>UserControl("Click On Resume To Make Changes Permanent In Style Sheet.")
<:#216,10800>StyleManageInit()
<:#216,10800>For i = 1 to s - 1
<:#216,10800> StyleManageAction(style(i),2,0)
<:#216,10800>next
<:#216,10800>StyleManageFinish()
@Function@<:#216,10800>endit:
<:#216,10800>ModifyReflow()
<:#216,10800><:><:><:><:>Darkmode(0)
<:#216,10800>hourglass(0)
@Function@<:#216,10800>END FUNCTION
<:#216,10800>
@Function@<:#216,10800>DIALOG box1
<:#216,10800>-2134376448 5 110 40 160 108 "" "" "Select New Typeface"
<:#216,10800>FONT 8 "Helv"
<:#216,10800>112 6 40<:><:> 14 1 1342242817 "button" "OK" 0
<:#216,10800>112 22 40 14 2 1342242816 "button" "Cancel" 0
<:#216,10800>8 16 92 68 9000 1352859657 "listbox" "" 0
<:#216,10800>10 6 96 8 1000 1342177280 "static" "Available Printer Fonts:" 0
<:#216,10800>8 90 150 9 20 1342242819 "button" "Change Font Point Size For Document" 0
@Function@<:#216,10800>END DIALOG
<:#216,10800>
@Function@<:#216,10800>DIALOG Box2
<:#216,10800>-2134376448 4 150 40 108 76 "" "" "Select New Point Size"
<:#216,10800>FONT 8 "Helv"
<:#216,10800>60 5 40 14 1 1342242817 "button" "OK" 0
<:#216,10800>60 21 40 14 2 1342242816 "button" "Cancel" 0
<:#216,10800>8 4 44 8 1000 1342177280 "static" "Point Size:" 0
<:#216,10800>8 16 44 54 9500 1344274433 "combobox" "" 0
@Function@<:#216,10800>END DIALOG
>
[Embedded]
00007944
>
[macsum] 3
cngdocft 0 0 13 0
box1 3886 0 -1 168
Box2 4251 0 -1 178
[macse]
14 cngdocft
0 292 1
0 296 1
20 00003847
19 00003847
5 100
21 1 [X]
5 25
21 2 [X]
5 1
8 3
5 84
8 4
5 1
7 "Arial MT"
23 1
5 2
7